home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / GETCRDRV.DEM < prev    next >
Text File  |  1994-07-02  |  253b  |  16 lines
  1. program GetCrDrvSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    Drive : byte;
  7.  
  8. begin
  9.   Color( 7, 0 );
  10.   clrscr;
  11.   Drive := GetCrDrv;     { Call GetCrDrv function }
  12.  
  13.   writeln( #13#10, 'The current drive is ', chr( 65 + Drive ), ':' );
  14.  
  15.   GetEnter;
  16. end.